home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / Fontographer® 4.0.2 / Disk 2 / PC Font Access / PC Font Access.rsrc / STR#_7030.txt < prev    next >
Encoding:
Text File  |  1993-06-17  |  481 b   |  25 lines
  1. CharStrings exch get newpath dup type exec restore}B
  2.  
  3. {Encoding exch get}ifelse dup CharStrings exch known not{pop/.notdef}if
  4.  
  5. {5 string cvs cName 1 3 -1 roll putinterval cName( )search{exch pop exch pop}if cvn}
  6.  
  7. /BC2{save exch dup 255 gt
  8.  
  9. /packedarraytype/exec load def
  10.  
  11. /arraytype/exec load def
  12.  
  13. /stringtype{{UCS}forall}B
  14.  
  15. /cName(c     )def
  16.  
  17. /NL 0 def
  18.  
  19. /B{bind def}bind def
  20.  
  21. userdict begin/TestDict 45 dict def TestDict begin
  22.  
  23. systemdict/currentpacking known{true setpacking}if
  24.  
  25.